home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / pvap322a / pvapwait.plp < prev   
Text File  |  1993-11-30  |  1KB  |  61 lines
  1. /************************************************************************
  2. *    時刻指定と、その時刻まで待つ処理                *
  3. ************************************************************************/
  4. %WaitTime{
  5.     var Buffer[40];
  6.     var ReqHM[10];
  7.     var WaitSec[6];
  8.     %TimeRes    {)))cr(((.$$$};
  9.     %TimeFile    {))time((.$$$};
  10.  
  11.     %NowTime{
  12.     dispoff({Yes});
  13.     case    (@filechk(TimeRes),
  14.         {Yes},    {delfile(TimeRes)});
  15.     write(TimeRes,{\n});
  16.     command({time <} | TimeRes | { >} | TimeFile);
  17.     delfile(TimeRes);
  18.     Buffer:=@read(TimeFile,1,1);
  19.     delfile(TimeFile);
  20.     dispoff({No});
  21.     };
  22.  
  23.     loop({
  24.     SNDMSG({nyuryo_f.snd});
  25.     footnote({});
  26.     ReqHM:=@input({何時何分に起動しますか？\n}|
  27.         {４桁の数字(hhmm)で返答して下さい}|
  28.         {(hh=00～23,mm=00～59)});
  29.     case    (@nochar(ReqHM)=4 || ReqHM={},
  30.         {Yes},{im({No})},,
  31.         {footnote({４桁の数字(hhmm)で入力して下さい});
  32.         im({Yes})});
  33.     });
  34.     footnote({});
  35.  
  36.     case    (ReqHM={},
  37.         {Yes},    {PERFORM:={No}},
  38.         {No},    {NowTime;
  39.             %NowHH    @getchar(Buffer,14,2);
  40.             %NowMM    @getchar(Buffer,17,2);
  41.             %NowSS    @getchar(Buffer,20,2);
  42.             %ReqHH    @getchar(ReqHM,1,2);
  43.             %ReqMM    @getchar(ReqHM,3,2);
  44.             WaitSec:=((ReqHH*60+ReqMM)*60)
  45.                 -((NowHH*60+NowMM)*60+NowSS);
  46.             case    (ReqHH<NowHH,
  47.                 {Yes},    {WaitSec:=WaitSec+24*60*60});
  48.             footnote(@getchar(Buffer,14,8)|
  49.             {から}|ReqHH|{:}|ReqMM|{まで、}|
  50.             WaitSec|{秒間待ちます});
  51.             TIMER:={Yes};
  52.             preser:={ 1};
  53.             PERFORM:={Yes};
  54.             chat({Yes});
  55.             wait(WaitSec,);
  56.             chat({No});});
  57. };
  58.  
  59. /*    実行    */
  60. WaitTime;
  61.